From b8a7468a76fd1704ee2e910b80c3591f653a4106 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Tue, 5 Feb 2019 21:54:42 +0000 Subject: [PATCH] list_order.4 Gbp-Pq: Name list_order.4 --- lsp/gcl_directory.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp index 30c0534b..9da15b42 100644 --- a/lsp/gcl_directory.lsp +++ b/lsp/gcl_directory.lsp @@ -62,7 +62,7 @@ (when (pathname-match-p dir v) (push (merge-pathnames (parse-namestring dir nil *default-pathname-defaults* :start pos) pexp nil) r))) :file) - (when (pathname-match-p dir v) (push pexp r)))) + (when (pathname-match-p dir v) (push (pathname (copy-seq (namestring pexp))) r)))) (make-frame "")) r) -- 2.30.2